home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 23 / 023.d81 / screen mover (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  509b  |  20 lines
  1. 70 printchr$(147)chr$(142)"*  screen mover *"
  2. 80 print"where shall i store the code?"
  3. 90 print"(828 and 49152 are good)"
  4. 100 input sc
  5. 110 gosub1000
  6. 120 print"code storead successfully"
  7. 130 print"sys"sc", sp, ep  to activate"
  8. 140 end
  9. 150 :
  10. 1000 fori=sctosc+50
  11. 1010 reada:pokei,a
  12. 1020 ch=ch+a
  13. 1030 next
  14. 1040 ifch=7963thenreturn
  15. 1050 print"error - check data":stop
  16. 1100 data32,241,183,134,252,160,0,132,251,132,253,177,122,201,44,208
  17. 1110 data6,32,241,183,138,208,7,173,24,208,106,106,41,60,133,254
  18. 1120 data162,4,160,0,177,251,145,253,200,208,249,230,252,230,254,202
  19. 1130 data208,240,96
  20.